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MPSSPFM_CTXSW = Increment Context Switch Accumulator 
MPSSPFM_RESCHD = Increment Reschedule Request Accumulator 
MPSSPFM_NWAIT = Increment Null Wait for Event Flag Accumulator 
MPSSPFM_SCHDSUC = Increment Successful Reschedule Accumulator 
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Version: *v04-000' 


-MCALL MFPR 
-TITLE MPPFM = Multi-processing Performance Measurement Routines 
- IDENT -000' 


*v04 
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++ 
Facility: Executive, Multi-processing performance measuring 


Abstract: This module contains performance measurement routines 
for gathering data on context switches. 


OOCGCOOOSOOSOSOOCCGOCOCOCOCOCOOOOOOOO OOOO OOOOOCOO 


Environment: MODE=Kernel 
Author: Kathleen D. Morse, Creation date: 05-Aug-1981 
Modified by: 


SDOoOoOSCSOCOSOSOOSOOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOOSOSOSoOSoOOS 


v03-005 KDM0066 Kathleen D. Morse a Pits 
Change PRS_ICR to cpu-specific S stnteten, P 7808. ICR. 
v03-004 KOnO0S¢ Kathleen D. Morse 18-Nov-1982 


n off histogram collection for wait time spent on 
Seeenaae awaiting a reschedule. 


v03-003 eoneast Kathleen D. Morse 18-Nov-1982 
d performance measurement for TERA os 
wed, system services. 


SOoOOooooooo 
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- Multi-processing Performance sesoutous 19-$60-1384 93:13:38 PAN/ Yas ecco yong? 


MP.SR FM.MAR; 
v03-002 KDM0022 Kath een D. Horer 07-05 to198e 
Increase number of histogram cells for kernel mode 
system services. 
v03-001 KDM0015 Kathleen D. Morse 30-Sep-1982 


Increase number of histogram cells for kernel Paode 
system services. 


Page 
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v04-000 


Ww 


5 : Include files: 


e 
; Macros: 


~ENDM 


: Equated Symbols: 


SIPLDEF 


OO OO O09 09090909 09 09 09 0909 SINISE NIAAA OAAO 
NAUSEA SO OD NAUE WN 0 OO NAME WIN O ODA 
o 
z 


SOOOSCOCOSOOSOSOOSOSOSOOOSoOOOOOOOSOoOSOSoOOS 


SOOCOCCOCOCOOSOSOSOSOSSOSSOCOSOSCSOOOCOSOGOOOOOCOOOCOOOOOOOOOoO 


SOoOOoCCCSOOOOOOOOoOOSooOOoOooooooooSooS 


SOOoOoOoOooOoooooooooooooocoo: 


9 SPHDDEF 
9 spree 
98 SPR780DEf 
hi 
: > Histogram offsets 
1 oe 
00000000 104 HST_L_CELLCOUNT = 0 
00000004 105 HST_L_CELLWIDTH = 4 
BO b OST S ; 1 $ HST_Q_OVRFLOW = 8 
0 107 HSTTLZFIRSTCELL = 16 


PFMSA_HIST_"NAME':: 
LONG =C 


S 


MP.SRCIMPPFM. 


This macro generates a table of longwords that is used to 
collect histogram data. 


-MACRO HISTO 


NAME ,CELLCNT, CELLWIDTH 


LCNT 
ELLWIDTH 
pecans 


0 


Define interrupt priority levels 
Define secondary processor states 
Define process control block 
Define process header block 

Define rocessor register numbers 
Define 11/780-specific IPR numbers 


Count of cells in this histogram 
Width of each cell in histogram 
Accumulation of overflow values 
Offset to first cell in histogram 
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00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


-PSECT MPPFM,LONG 


PFMSL_CNT_RESCH:: 
«CONG O 
PFMSL_CNT_SCHDS:: 
~ LONG 
PFMSL_CNT_EXCHG:: 
.CONG O 
PFMSL_CNT_ASTSC:: 
.CONG 
PFMSL_CNT_INVAL:: 
.CONG 0 
PFMSL_CNT_IWAIT:: 
CONG 0 
PFMSL_CNT_NWAIT:: 
CONG 0 


PFMSL_WHY_CTXSW:: 
CONG 

PFMSL_WHAT SRV:: 
- LONG 


PFMSL_RUN_TIME:: 
-CONG 0 


PFMSL_RSCH_TIME:: 
-LONG 0 


FPFOQCOM OOO WOWWDL F&F LOQCOSM OO WOOL &LOCOMOOWWaols & 


; (PFMS 


MEW 9 OO NA NE WIR @§ 9 OO NA E WIN © OOD NAUE WIN $9 ODNAUE WN OOONAUES UNO 0 


me ee eh a tt 8) 9 a a a se ts ss 2 4 


PRP XALD MGs Be Be BB BBE FE EWN AIA AINA IPP NIPINININININYD 2 I OOO OO 


MMOAM@WCcceD 


:5 AX/VMS be P 4 
36 HAR yie acre Meee wr 


: Size of MP perf. meas data 
<PFMSL_END=PFMSL_START> ; 


PFMSL_CNT grass ; Count of number of context switches 


done on secondary 


; Count of number of reschedule 


requests made by secondary 


; Count of number of successful 


reschedules of secondary 


; Number of times a process was 


exchanged between primary & secondary 


; Number of times an EXEC mode AST 


was used to cause a reschedule 


; Number of invalidates requested by 


primary processor 


; Number of times primary looped waiting 


for secondary to answer invalid req 


; Number of wait for event flag system 


services that did not wa 


; Reason for the next context switch 
; (This value is the offset into the 


SCB, for which a request occurred.) 


; Reason for the next context switch 
; (This is the number specified 


in the CHMK instruction.) 


; Accumulator for Length of time 


process has been running on secondary 


; Accumulator for length of time 


secondary waits for reschedule 
(PERSE RON of compute sine on secondary 


RUN_TIME value 
l width= 55 2 ene 
gett count = 100 


3; Histogram of s ates services requested 
; (PFMSL_WHAT ‘SR ues) 
; (One cell for +i cyates service) 


; Histogram of reasons for context 
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; switches (PFMSL_WHY_CTXSW values) 
i (One cell for each SB vector) 


§ HISTO PGFL,100,50 3; Histogram of # egeteutts on secondary 
; _per PFMSL_RUN_TIRME value 
3 Cell width = 50 microseconds 
3 Cell count = 100 
HISTO CHMK,100,50 ; Histogram of system services on 
; serondary per PFMSL_RUN_TIME value 
3 Cell width = 50 microseconds 
; Cell count = 100 


; Histogram of other reasons on 

; eerendery per PFMSL_RUN_TIME value 
; Cell width = 50 microseconds 

; Cell count = 100 


HISTO OTHR,100,50 


HISTO SSRV,100,50 ; Histogram of Last ge service on 
3 _secondary per PFMSL_RUN_TIME value 
; Cell width = 50 microseconds 


; Cell count = 100 


HISTO KSRV,84,1 ; Histogram of system services executed 
on secondary processor in kernel mode 
(One cell for each system service) 


AOOOOPY SPP PF OOO 0 OW & eee 


PLL HLMMMMMNANWWO OOOO TNT MN 
FFF FOSS COOM OOOO BOOS SSS FOOOO 
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1 
1 
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1 
1 
1 
1 
1 
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COooooooceo 


PFMSL_END: : 
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: - -SBTTL MPSSPFM_RUNTIME = Increment Run Time Accumulator 


Functional Description: 


MPPFM - Multi-pro 
v04-000 PEM_R 


~ 
‘Ss 


This routine is called from the hardware clock interrupt service 
routine. It | gre the amount of run time that a process has 
accumulated while running on the secondary processor. 
Calling Sequence: 

BSBwW MPSSPFM_RUNTIME 
Input Parameters: 

None 
Environment: 


Executes on secondary processor. 


Bete Ge Ge Se Ge Ge Se Ge Se Ge Se Sse Se Sse Sete Sete Ge 
= 


MPSSPFM_RUNTIME:: 
F30F CF 00002710 8F CO “013 #10000,W*PFMSL_RUN TIME ; Update run time accumulator 
F3DA CF 00002710 8F 4 M+ #10000,W*PFMSL_RSCA_TIME i lindate run time accumulator 
; Return 


F3A9 CF 


D 
0 


6 
5 


be * el 


Nee 


COOOsSQOOOCOOCOCOOCOOOOOOOOOOCOOoOOO 


APAAIOOAAAOAAAAOAAAAAAAAAAAOOOO BZ 


’ 
creo 
4S 


PUDUPUPUSUSUSUSUSUSUSUSUSUSUSUSUSISISUSSIOSIOSIOSIOIO 


A a a et 


xo 
no 
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- Increment Context Switch 5-SEP-1984 MP.SRCIMPPFM.MAR 
-SBTTL MPSSPFM_CTXSW = Increment Context Switch Accumulator 
Functional Description: 
This routine is called from the primary's reschedule interrupt service 
routine. It increments the number off times that the secondary has 
been scheduled to run a process. 
Calling Sequence: 
BSBW MPSSPFM_CTXSW 
Input Parameters: 
None 
Environment: 
Executes on primary processor. 


MPSSPFM_CTXSW:: : 
pat W*PFMSL_CNT_CTXSW ; Update context switch accumulator 


3; Return 


BREE ERE FWA NIPPON 


DNASE WO OONOAUNE WN OODNOUS Ww 
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crement Reschedule Re 5-SEP- MP.SRCIMPPFM.MAR; 
‘ -SBTTL MPSSPFM_RESCHD = Increment Reschedule Request Accumulator 
Functional Description: 


roce 
ESCH 


This routine is called from the primary's reschedule interrupt service 
routine. It increments the number off times that the secondary has 
requested a reschedule event. 
Calling Sequence: 

BSBW MPSSPFM_RESCHD 
Input Parameters: 

None 
Environment: 


Executes on primary processor. 


Bete Ge Se Ge Ge Ge Se Ge Se Ge G+ Se Se Ge Ge Se Ge Sete 
+ 


MPSSPFM_RESCHD:: 

F3A8 CF INCL W*PFMSL_CNT_RESCH 3 fodate reschedule request accumulator 
; Return 

-SBTTL MPSSPFM_NWAIT = Increment Null Wait for Event Flag Accumulator 


Functional Description: 


Wor 


This routine is called from the primary's check-event-flag routine that 
it performs on behalf of the secondary (MPS$WAITCK). It increments the 
number of times the process is returned to the secondary without going 
through a full reschedule onto the primary. 
Calling Sequence: 

BSBW MPSSPFM_NWAIT 


Input Parameters: 


1090909 09 0909 09 C908 INI II 
DWONOAUE WN O OOo 


Sete Ge Ge Se Ge Ge Ge Se Ge Se Ge Se Ge Se Ge Ge Se Ge See 
+ 


None 
Environment: 
Executes on primary processor. 


wR AE AAR OH 


OOONAOUS WN 


MPSSPFM_NWAIT:: 
INCL 
RSB 


a ee lt lt el OD OD OD OD OD OD OD OD OV OD OV OV OV OVOP OOP OV OV OVOP OVO OOD 
~ 


DDPDPDP DPD DPD DED DED DEDEDE D> DEDEDE DDE DDD. DDD DE VPS VOSS VOSS 


a 


W*PFMSL_CNT_NWAIT ; Update null wait accumulator 
; Return 


~™ 


MPPFM 
v04-000 


01 


0000' CF 
F39B CF 


NAAAAAAAAAAAAAAAA AAA AAA AAAS 
FI DAAAAAAAAAAAAAAAAAAAAAAAAD 
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- Increment Successful R 5-SEP- MP. SRCIMPPFM.MAR 
‘ ~SBTTL MPSSPFM_SCHDSUC = Increment Successful Reschedule Accumulator 
Functional Description: 
This routine is called from the primary's reschedule interrupt service 
routine. It increments the number off times that the secondary has 
been successfully rescheduled. 
Calling Sequence: 

BSBW MPSSPFM_SCHDSUC 
Input Parameters: 

None 
Environment: 


Executes on primary processor. 


Boe Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se 
; + 


MPSSPFM_SCHDSUC: : 
CMPL W*MPSSGL_STATE,#MPSSK_IDLESTATE ; Was reschedule successful? 


BEQL 10$ ; Br if not successful, sec still idle 
INCL W*PFMSL_CNT_SCHDS : Inc successful reschedule accumulator 
108: RSB ; Return 


MPP 
V04 


MPPFM - ff 
v04-000 MPS 


tee 
ze. 


¢ 13 aaa: ss, ' MPP 
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-SBTTL MPSSPFM_EXCHG = Increment Accumulator of Process Exchanges 
Functional Description: 


vu 


This routine is called from the routine that schedules a process for 
the os peat It counts the number of times a process moves from 
the primary to the secondary. 
Calling Sequence: 

BSBW MPSSPFM_EXCHG 
Input Parameters: 

None 
Environment: 


Executes on primary processor. 


MPSSPFM_EXCHG: : 
CMPL G*SCHSGL_CURPCB,W*MPSS$GL_CURPCB ; Was process exchanged? 
Q ; Br if not exchanged 
INCL W*PFMSL_CNT_EXCHG 3; Inc exchanged process accumulator 
10$: RSB ; Return 


Q000'CF  00000000'GF } 
F38F CF 06 
05 


COOOCQCCOCOCCOOCOOCOCOCOOOOOOOOOOOOOO 


PAAANOAOOOAAAAAAAAAAAOAAAAAAANA 
ON NNN 
DPSS Be BS BS BS NANI 
SODNA WE WN OOO NA UE WN OOONAUILE 


ee ee ee coc 
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Acrement Accumulator of 5-SEP- MP.SRCIJMPPFM.MAR; 
‘ -SBTTL MPSSPFM_ASTSC = Increment Accumulator of Exec AST Reschedules 
Functional Description: 


w 
‘wow 
a 
a | 
as 


This routine is called from the code that determines if a process 
running " the primary should be forced onto the secondary as 
soon as it exits from kernel mode. It counts the number of times 
an AST interrupt is scheduled to occur, causing a rescheduling 
event as soon as the process exits from kernel mode. 
Calling Sequence: 

BSBW MPSSPFM_ASTSC 
Input Parameters: 

None 
Environment: 


Executes on primary processor. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Sete Gs teGe 
: + 


MPSSPFM_ASTSC:: 
F38E CF INCL 


C009 09 09 00 0909 09 09 08 SINISE NNN OPA AAOOm 
DWONAUE WN O OD NAUE WIN O OONOUE Ut 


W*PFMSL_CNT_ASTSC :; Inc exchanged process accumulator 
; Return 


MPPFM = fi 
v04-000 MPS 
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n 
Set Unexpected Interrupt 5-SEP-1984 MP.SRCIMPPFM.MAR; 

. -SBTTL MPSSPFM_UNEXP = Set Unexpected Interrupt Indicators 
Functional Description: 


ie * el 
ne 
25 
mo 
=O 
ve 
ww 
tw 


This routine is called from the unexpected interrupt service 
routine, It sets indicators for the reason of the interrusi, 
which will be recorded Later on in histograms. 


AAA A.NAAN 


Calling Sequence: 
BSBW MPSSPFM_UNEXP 

Input Parameters: 
Return address 


(SP) = 
4(SP) = Vector offset within SCB ' 

8(SP) = Pg parameters, if CHMK then numerical argument 
HP) =P 


SSQQoq_Qq_Vvw__wwwaaSN NG CO 
SOOOCOOOL OOOOOOOOO 


FWD OOONAUN EWN 0 OONOAUE WO OONOUS wr 


at time of exception 
PSL at time of exception 


Environment: 
Executes on secondary processor. 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Sse Ge Ge Ge Se Se Ge Se Se Se Ge 


MPSSPFM_UNEXP:: 
F397 CF 04 AE MOVL 


00000040 8F F393 CF 
F38A CF 08 AE 


=] 
So 


4(SP) ,W*PFMSL_WHY_CTXSW ; Remember offset into PCB (reason 
: _for this interrupt) 
CMPL W*PFMSL_WHY_CTXSW,#°X40 ; Is this a CHMK request? 
BNEQ 10$ ; Br if not a CHMK request 
MOVL 8(SP),W*PFMSL_WHAT_SRV ; Remember the number argument to CHMK 
10$: RSB ; Return 


CGOQoQoooooooooooooooooCoCooSoOOOOOOOOOO 


SOOMOOOOOAOOIMOOOIOAIOoOoooagn 
Foy oF oF at ot ot ot ot ot ot ot ot a ee 
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‘ -SBTTL MPSSPFM_ASTDEL = Set AST Delivery Indicator 
Functional Description: 
This routine is called from the AST delivery interrupt service 
routine, It sets an indicator for the reason of the interrupt, 
which will be recorded later on in a histogram. 
Calling Sequence: 

BSBw MPSSPFM_ASTDEL 
Input Parameters: 

None 
Environment: 

Executes on secondary processor. 


FR Se Se Se Se Ge Oe Ge Oe Os Se Ss Oe Se Se Se Se Se Sete 
. > 


PSSPFM_ASTDEL:: 
MOVL #*X88,W*PFMSL_WHY_CTXSW ; Indicator is offset in SCB to 
3; _AST delivery routine 
RSB ; Return 


PELL LS LLL LLL ELL LLLP ELE LEE Me 
WINE EERE RAE RSW 


MOOD NA UE WN" 9 OONOAUM EWN" OOOO 


MPPFM - 
04-000 MPSS 


ze. 
t 


=z 
ie + ed 


SOOQOQCQCQCOOCOCOCOOCOCOOOOOCOSOOOOOSoOO *rF 


>>r>rrrrrrrrr>r>r 
WOWOOOOOOOOOOO FO 


> 
ooo 


>>r>rr>r 
ooo 


F376 CF 8604 


So 
So 


CHK = Set Machine Check Indicat 5-SEP-19 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
+ 


MPSSPFM_MCHK:: 
MOVL 


Foy oP oY oP oP oP oP oP oP a oP oP ot ot a at ot oe 


SENN NSA AAA AAA 
ONAN O OONANE WN OOONAOUE WW 
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Z -SBTTL MPSSPFM_MCHK = Set Machine Check Indicator 
Functional Description: 
This routine is called from the machine check interrupt service 
routine, It sets an indicator for the reason of the interrupt, 
which will be recorded later on in a histogram. 
Calling Sequence: 

BSBw MPSSPFM_MCHK 
Input Parameters: 

None 
Environment: 

Executes on secondary processor. 


#°X04 ,,W*°PFMSL_WHY_CTXSW ; Indicator is offset in SCB to 
3 machine check routine 
RSB 3; Return 


MPPFM 
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-2END = SetQuantum End Indicator “SEP-1984 z 83: 03: 36 MP.SRCIMPPFM.MAR; 1 
-SBTTL MPSSPFM_QEND = SetQuantum End Indicator 
Functional Description: 
This gig is called from the quantum end interrupt service 
routine t sets an indicator for the reason of the interrupt, 
which will be recorded Later on in a histogram. 
Calling Sequence: 
BSBw MPSSPFM_QEND 
Input Parameters: 
None 
Environment: 
Executes on secondary processor. 


z Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se 
. + 


PSSPFM_QEND:: 


F36C CF Q0000009C BF D0 MOVL #*X9C ,W*PFMSL_WHY_CTXSW ; Indicator is offset in SCB to 
software timer interrupt routine 
(i.e., quantum end) 


Return 


secoee afatatatalalatatatatatatatatatatatatatatatatal ated 
AOOOON o 
>>>>>> > 
i Des es ee es es Be ee) 
PVPS Be BB BB PPP PPP PPE ESE 
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RSB 
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-SBTTL MPSSPFM_SVPCTX = Save Process Context Measurement Routine 


+ 
Functional Description: 


ze 
vo 
wz 
ec 
vue 
Nee 
ze, 
o 
vro 


roc 
vPC 


This routine is cat iee from the scheduling routine for the secondary 
processor, at the time it folds up a process and hands it back 
to the primary. t is used to compute the actual run time accumulated 
by the process while it was running on the secondary, and store this 
value in a histogram. 
Calling Sequence: 

BSBW MPSSPFM_SVPCTX 
Input Parameters: 

None 
Environment: 


Executes on secondary processor, at IPLs SYNCH and HWCLK. 


MEAN O ODNAUE WN" OOONOULS UN O0O 


WIAA AAI IR OPOPOPOPOPOPINNN 9 tO 


MPSSPFM_SVPCTX:: 
OF 6B PUSHR #*M<RO,R1,R2,R3> Save registers 
SETIPL Ate HWCLK Lock out secondary clock interrupts 
FPR #PR780$_ICR,RO Get usec offset from 10 milsec marker 


MFPR #PRS$_ICTS.R 

MOVL W*PFASL_RUN_TIME,R2 
SETIPL #IPLS_ SYNCH 

B #7,R1-10$ 

CMPL #~006,R0 

ADDL  #10000,R2 


ADDL #10000 RO 
RO,R2 


Get status register 

Get run time accumulator 

Enable secondary clock interrupts 
BC, no overflow 

Overflow after read ? 

If LSS, yes. Correction not needed 

Correct run time accumulator 


(10*4 = xX) 
Total run time (usec) 


10 51 Q? 
50s FFFFEC78 BF 
52. 00002710 8F 
50 eouegrte 8F 

2 50 


10$: 


: Increment delta time histogram and compute index into this histogram 
‘ MOVAB WoPERSA_HIST_TIME .R3 


MOVL R 
DIVL2 HST_L_CELLWIDTH(R3).R Compute the histogram index 
HST_L_CELLCOUNT(R3) ,R Out of range ? 


: Get address of histogram 
CMPL ; 
BGEQU 20% ; If GEQ, n 
MOVL : 


Remember amount in case of overflow 


) 
HST_L_CELLCOUNT(R3) ,R2 Set index to overflow cell 
ADDL Ri, AST_G_OVRFLOW(R3S Add to overflow accumulator 
ADWC #0, HST_Q_OVRFLOW+4(R3) in quadword arithmetic 


208: 
INCL HST_L_FIRSTCELL(R3)CR2) ; Update histogram 


Increment wiptegres of reasons why context switch occurred -- 
(one for each SCB entry) 


| 
52 F364 CF DO 
: 
: 
" 
: 
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v04-000 MPSSPF _SVPCTX = Rave Process Context Me ~$ee= 138s $5: 09:06 YAP SRCIMPPFA.MARSS ’ (1) 
F316 CF 0 OD 5 OVL W*PFMSL_WHY_CTXSW,R1 ; Get offset into SCB (reason for ctxsw) 
2} Fess C 5 o0 § MOVA W*PFMSA_HIST CTX a3 3; Get address of histogram fon: 
51 04 A3 C6 OD DIVL HST _L_CELLWIBTH(AS) RI : Compute the histogram index 
51 § D D1 8 CMPL Ua aha CELL COUNT OR »,R1 ; Out of range ? 
1 D1 BGEQU 3: If ofa. no 
ae Dd p} oY 308: OVL HST_L_CELLCOUNT(R3),R1 ; Set index to overflow cell 
10 A341 D6 4 7 : INCL HST_L_FIRSTCELL(R3)CR1) ; Update histogram 
D 74; 
D 75 ; If reason was a CHMK #n, then increment the histogram of which system 
. 1 : service was requested. 
000000460 8F F2FC CF 01 OD 78° CMPL W*PFMSL_WHY_CTXSW,#°X40 ; Is this a CHMK request? 
is D 79 BNEQ $ 3; Br if not a CHMK request 
2] F2FS CF OD D 0 MOVL W*PFMSL_WHAT_SRV,R1 ; Get the argument to the CHMK instr 
3. F4A0 CF SE OD 1 MOVA W*PFMSA_HIST_SRV,R3 ; Get address of histogram 
51 04 A3 C6 OD é DIVL2 HST_L_CELLWIBTH(R3).R1 ; Compute the histogram index 
51 6 D1 OD CMPL HST_L_CELLCOUNT(R3),R1 ; Sut of range ? 
t 1E OD4 4 BGEQU 3 - no 
51 6 dO + 585 408 OVL HST_L_CELLCOUNT(R3),R1 ; Set index to overflow cell 
10 A341 6 D4 A "INCL «~—sHST_L_FIRSTCELL(R3)CR1] ; Update histogram 
D4 9; 
D4 0 ; Increment system service histogram that corresponds to the 
D4 91 ; delta time histogram. 
53 FBA7 CF 9E OD ” MOVAB W*PFMSA_HIST_CHMK,R3 _ ; Get address of histogram 
10 A342 6 «(OD INCL HST_L_FIRSTCELL(RS)CR2] :; Update histogram 


3; Set indicator histogram cell, — last system service in this 
delta time interval. This corresponds to the delta time histogram. 


MOVAB W*PFMSA_HIST_SSRV,R3 ; Get address of histogram 
mOVL WeDEMSL WHAT SRV HST_L_FIRSTCELL(RS)CR2J ; Record Latest srv 


; If reason was a agefault, increment pagefault histogram that 
3; corresponds to the delta time histogram. 


Sos: 
24 F2CcO CF ODI CMPL W*PFMSL_WHY_CTXSW,#°X24 ; Is this a pagefault request? 
12 BNEQ 60$ ; Br if not a pagefault request 
53 FOES_CF 9E MOVAB W*PFMSA_HIST_PGFL Re ; Get address of histogram 
10 ae | D6 INCL HST L_FIRSTCELL (RS) R2] ; Update histogram 
0 11 BRB 1008 
: This was neither pagefault or CHMK reason, increment histogram of 
; other reasons that corresponds to delta time histogram. 
b0s: 
53 FA22 CF 9E MOVAB W*PFMSA_HIST_OTHR RB ; Get address of histogram 
10 A342 6 INCL HST_L_FIRSTCELL(R$)CR2) : Update histogram 


BD NIPIPINIMNINIVINION NUIQOOOOOOOM VSNVIPIPININIM OOO OOOMUMNVIOS OL NOLL LSS FOOCVUWOL  >Y 
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si in Performance Measureme 16-SEP-1984 02:12:5 AX/VMS Macro i Pa 
oac Process Context Me mets 95:48:36 Yn, SRCIMPPFM.MAR; 1 ” 


‘i -SBTTL MPSSPFM_LDPCTX = Load Process Context Measurement Routine 
Functional Description: 
This routine is called from the scheduling routine for the secondary 
processor, of the time it starts executing a new process. It is 
used to init aise’ accumulators used in computing the amount of run time 
accumulated by the process while it was running on the secondary. 
Calling Sequence: 

BSBW MPSSPFM_LDPCTX 
Input Parameters: 

None 
Environment: 


Executes on secondary processor, at IPLs SYNCH and HWCLK. 


Bee Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Ge Se Se Se Se Sse Bete 
+ 


MPSSPFM_LDPCTX:: 
M RO,-(SP) ; Save registers 
rut #16 Lock out secondary clock interrupts 


; Clock status register 

: BC, no overflow 

: Overflow after read ? 

; If LSS, for Correction not needed 
; Correct pending clock interrupt 


10$: ADDL #10000 ,RO ; (10°4 - 


@ 
od 
7) 
Soren 2-—-o 
a 
Pete Ge Se Se Se Ge Sete Sete tee 


MNE RO, PFMSL_RUN_TIME ; CPU = CPU. - (10%4 = x) 

SETIPL #IPL$_SYR ; Enable secondary clock interrupts 
MOV (SP)+,RO ; Restore registers 

RSB ; Return 


4 13 
- Multi-processing Performance Measureme 16-SEP-1984 12:5 AX/VMS_M v04- P 
MPSSPFM_INTP - Resenber Time Interrupted ~-SEP-1984 3:09:06 Lae SRCIMPPFR MARS) ae 29) 


+4 bss aa -SBTTL MPSSPFM_INTP = Remember Time Interrupted Primary for Reschedule 
+} ? 5 ; Functional Description: 
DB1 $69 ; This routine is called from the echeeyl tng code for the secondary 
DBI 908 3 gregeneey,, at the Me | that it requests the primary to reschedule it. 
DB1 98 ; It is used to initialize accumulators used in computing the amount 
DB1 «670 ; of run time accumulated by the process while it was running on 
+4 4 3; the secondary. 
DBI 678 ; Calling Sequence: 
DBI ere 3 
DBI 73 3 BSBW MPSSPFM_INTP 
0081 076 3 
0DB1 677 ; Input Parameters: 
0DB1 o78 : 
0DB1 679; None 
DB1 oa 3 
DB1 681 ; Environment: 
0081 oes ; 
pest oR? 3 Executes on secondary processor, at IPLs SYNCH and HWCLK. 
684 ; 
0DB1 ess see 
0DB1 686 
0081 687 MPSSPFM_INTP:: 
7D ODB1 688 MOVa 0,-(SP) 3; Save registers 
ODB4 689 SETIPL #PLs 3; Lock out secondary clock interrupts 
0DB7 690 MFP PR780$_ICR,RO 3 (-x) 
ODBA 691 MFPR RS RA 3; Clock status register 
—1 ODBD 69 BBC RT,1 : BC, no overflow 
D1 ODC1 69 CMPL #-5006, : Overflow after read ? 
19 ODC8 694 BLSS $ ; If LSS, yes. Correction not needed 
CO ODCA 695 ADOL #10000,R0 : Correct for pending clock interrupt 
CO QODD1 696 10$: ADOL #1 R 3 (10%4 - xX) 
CE ODD8 697 MNEGL RO,PFM$L_RSCH_TIME > CPU = CPU = (10%4 = Xx) 
ODDD 698 SETIPL #IPL$_SYRCH ; Enable secondary clock interrupts 
7D poed 99 MOVQ (SP)+,RO ; Restore registers 
05 ODE 00 RSB ; Return 2 
pee 44 on -SBTTL MPSSPFM_KSRV - Count Secondary Kernel System Services 
ODES 703 ; Functional Description: 
ODES 704; 
ODES 705 ; This routine is called from the secondary's wait-for-event-flag 
DES 7 § 3 system services. It is incremented once for each service that does 
+7 3; not return to the primary for handling. 
DES 7 3 3; Calling Sequence: 
ODES 710; 
ODES 711; BSBW MPSSPFM_KSRV 
DES ay 3 
DES 7135 ; Input Parameters: 
DES 714; 
DES 715; None 
DES at 3 
DES 717 ; Environment: 
DE4 at 3 
DES 719; Executes on secondary processor. 
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mPSSPEM_RSRY - Count Secondary Kernel Sy mitt 7 $5: 05:00 UMP. SRCJMPPFA. MAR: | . (1) 
DES 7 9 3 
ae 
DES =? : 
DES 724 MPSSPFM_KSRV:: 
7E 51 7D QDES 725 MOVa R1,-(SP) ; Save registers 
51 F230 CF 00 ODE? 7 $ MOVL W*PFMSL_WHAT_SRV.R1 ; Get the argument to the CHMK instr 
52. FCFO CF 9E ODEC 7 MOVA W*PFMSA_HIST_KSR 3; Get the address of the histogram 
51 046 A2 C6 ODFI 728 DIVL2 HST_L_CEL WIDTH(RG) .RI ; Compute the histogram index 
51 6 D1 ODFS 729 MPL HST_L_CELLCOUNT(R2),R1 ; Out of range? 
0 1 DF8 730 BGEQU§ 10$ i 1 . no 
51 62 0D 44s 4 1 108 MOVL HST_L_CELLCOUNT(R2),R1 ; Set index to overflow cell 
10 A241 D6 ODFD 7 : INCL HST_L_FIRSTCELL(R2)CR1] ; Update histogram 
51 8E&€ 7D O€E01 ia MOVQ (SPY+—R1 ; Restore registers 
05 O0€&04 735 RSB ; Return 
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v04-000 MPCEPEM-ELROATA ooClear ACE Bertocnance,  ScSEP-1986 03:09:00 EMP SREIMPEFA.MARSS ° 
3 rs = -SBTTL MPSSPFM_CLRDATA = Clear ALL Performance Measurement Data 
; 135 : Functional Description: 
E 741 : This routine is called from 7 initialization code for the secondary 
E veg 3 processor. It is used to initialize accumulators used so that both 
; 2 7 3; the primary and secondary times can be displayed. 
3 2 ; Calling Sequence: 
EO 147 ; BSBW  MPSSPFM_CLRDATA 
£08 749 : Input Parameters: 
DE0> £31 : None 
0e03 738 : Environment: 
Bede £3 ; Executes on secondary processor. 
oe 
QE05 759 MPSSPFM_CLRDATA:: 
OO7F 8F BB OE05 760 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6> 
56 00000000" Gr po E09 761 * WOVE G*EXESGL_MP,R6 :Get adr of loaded MP code 
00000000" GF 41 D4 OEI8 768 10$: CURL G*MPSSAL_CPUTIMECR1J 
OE1D 765 F 
51 05 9A OQE1D 766 MOVZBL #5,R1 
00000000" GF41 D4 OE 9 167 20S: CURL GIPHS$GL_KERNELCR1] 
E2A 769 , 
50 00000000'GF 9E Of A as MOVAB G*SCHSGL_NULLPCB,RO 
70 $5 AO be OES rte CONE PHBSETCPUTINCROD 
3 77 rm 
00000004'GF 04 OE38 774 CLRL  G*PFMSL_CNT_CTXSW 
00000008 ' GF D4 OESE 775 CLRL G*PFMSL_CNT_RESCH 
$4444 04 E44 776 CLRL G*PFMSL_CNT_SCHDS 
SoooooIe GE bt OESO PB EERE G*PEMSCTENTTIUAIT 
DoooooIe cE bd OES 80 cht RA pEMST TENT TATSe 
PtBA CF 04 E6s , CLRL PFMSL_CRT_NOAIT 
50 FICA CF 9 £66 «7 5 MOVA W*PFMSA_HIST TIME ,RO 3Get address of histogram 
51 06 60 C5 O€6B 784 MULL3 HST_L_CELLCOONT(RO) ,#4,R1 
in a a ac rr Add in overflow call a a... 
60 51 00 20 $8 C ers MOVCS #0, (ROT,#0,R1, (RO) :Clear performance meas data 
9 CF 7 7 MOVA W*PFMSA_HIST SRV,RO :Get address of histogram 
39 fe £ 2 i i 790 MULLS HST_L_CELLCOONT (RO) ,#4,R1 
i ‘ ‘8 ‘ 3) ADDL aust Q_ OVRFLOW,R A , me Bh eat F and size 
Point pa 
60 51 00 20 0 se f A 438 mMovCcS FO UROT wo Hy tno Clear performance meas data 
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v04-000 MPSSPFM_CLRDATA ~ Clear ALL Performance °$ UMP. SRCIMPPFR.M M.MAR; 1 (1) . 
—9 794 
50 F4A8 CF 43 E9 795 MOVA ie IST_CTX,RO :Get address of histogram 
51 0460 «60S C5 «ESS = 798 MULL CEL LCOONT (RO) ,#4,R1 
1 Be 3 E99 oe ADOL z;Add in overflow cell 
0 C eE9Cc 7 8 ADOL markt Q_OVRFLOW Re ‘Point past cell count and size 
60 51 00 60 00 2 EGE 199 MOVCS #0, (ROT,#0,R1, (RO) iClear performance meas data 
50 FSA7 CF 43 EA 01 MOVA W*PFMSA_HIST_PGFL,RO :Get address of histogram 
51 046 60 CS OEAA O¢ MULL Hs] _L_CELLCOONT (RO) ,#4,R1 
1 OC 3 EAE ADDL #12°RT zAdd in overflow cell 
0 08 ¢ EB 4 ADDL. #HSf_Q_OVRFLOW,RO :Point past cell count and size 
60 51 00 60 £00 C HH 5 mMovcsS 40, (RO ,#0,R1, (RO) iClear performance meas data 
50 F736 CF 7 EBA 09 MOVA W*PFMSA_HIST_CHMK,RO :Get address of histogram 
51 94 60 C5 OEBF 808 MULL3 HST_L_CELLCOONT(RO) ,#4,R1 
1 OC CO OEC3 09 ADDL #1 3Add in overflow cell 
50 08 CO QEC6 10 ADOL #HST_Q_OVRFLOW,RO :Point past cell count and size 
ao i Ow Ww 4 HP MOVCS #0, (ROT,#0,R1, (RO) iClear performance meas data 
50 F8C5S CF mE ECF 8 MOVA W*PFiSA_HIST_OTHR,RO :Get address of histogram 
51 04 60 CS OFD4 814 MULL3 HST_L_CELLCOONT(RO) ,#4,R1 
51 OC CO OED8 815 ADDL #12°RT zAdd in overflow cell 
50 08 CO OEDB 816 ADDL aust a Q_OVRFLOW,RO tPoint past cell count and size 
o 31} OO WB A Dees sit MOVCS #0, (ROY,#0,R1, (RO) :Clear performance meas data 
50 FAS4 CF mE EES 819 MOVA W*PFMSA_HIST_SSRV,RO :Get address of histogram 
51 06 60 CS OEFE9 820 MULL3 HST_L_CELLCOONT(RO) ,#4,R1 
51 OC CO OEED ssl ADDL #127RT zAdd in overflow cells 
50 08 = C0 OEFO § : ADDL met a Q_OVRFLOW,RO :Point past cell count and size 
60 51 00 60 00 e2 pers Bes MOVCS #0, (ROT,#0,R1, (RO) iClear performance meas data 
50 FBE3 CF mE OEF9 825 MOVA W*PFMSA_HIST_KSRV,R 3Get address of histogram 
51 04 60 C oer 826 MULL3 HST_L CELL EOONT CRON #4,R1 
51 Oc CO OFO 827 ADDL shd¢ in overflow cell 
50 08 CO ore 828 ADDL #HST_Q_OVRFLOW,RO spel nt past cell count and size 
60 51 00 60 00 e2 Orbe 4 MOVCS #0,(ROY,#0,R1, (RO) lear performance meas data 
OO7F 8F BA OFO 831 POPR #*M<RO,R1,R2,R3,R4,R5,R6> 
05 OF! S36 RSB ;Return 
OF 1 83 
OF13 834 END 


MPPFM 
Symbol table 
EXESGL 


MPSSPFM_ 
MPSSPFM_LDPCTX 
MPSSPFM_MC 
MPSSPFM_NWAIT 
MPSSPFM 
MPSSPFM_RESCHD 
MPSSPFM_RUNTIM 
MPSSPFM_SCHDSUC 
MPSSPFM_SVPCTX 
MPS EXP 
CBS 


Pp 
PFMSL_CNT_RESCH 
PERst _CNT_SCHDS 
PFMSL_RSCH_TIME 
FMSL_RUN_TIME 
MSL-START 


PR7B0$_ICR 
SCHS$GL_~CURPCB 
SCH$GL~NULLPCB 
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Psect synopsis 2! . : g7SEF 71382 833 493 36 ry SRCJMPPFM.MAR; 1 


twos eanmene eaeceen} 


! ;_Psect Synopsis H 


PSECT name Allocation PSECT No. Attributes 


. . 90000000 ( -» 00¢ Q.) NOPIC USR CON ABS LCL NOSHR NOEXE 
SABSS BO One ( -) O17 ¢ 1.) NOPIC USR CON ABS LCL NOSHR’ EXE 
MPPFM OOOOF1S ¢ 3859. 2¢ 2.) NOPIC USR CON REL LCL NOSHR’ EXE 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 69:00: 0.12 00:00:00.95 
poanene processing 138 B8 80; 8-82 RS SE 
Symbol table sort 150 88.5 00:00:00 66 
Symbol table output 7 00: 0:00:08 8800 08-84 
Psect synopsis output 2 00:00:00.0 8 +88 + 8 = 08 
Cross-reference output 0 es SS Bb: bo: she 

Assembler run totals 591 00:00:13.01 0:00:38.67 


The working set Limit was 1650 pages. 

47910 bytes (94 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 428 non-local and 16 local symbols. 
839 source Lines were read in Pass 1, producing object records in Pass 2. 

16 pages of virtual memory were used to define 15 macros. 


Seen es are ewan ance we seme es $ 


Macro Library name Macros defined 


“$255$DUA 8:CMP.OBJIMP. mLB: 1 8 
“$255$DUA 8: SY$.0B JILIB.MLB;1 4 
“$255$DUA28: Sve IBISTARLET. MLB; e 5 
TOTALS (all libraries) 17 


627 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 


Page 25 
" (1) 


NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD WRT NOVEC LONG 


MACRO/LIS=LIS$:MPPFM/OBJ=OBJ$:MPPFM MSRC$:MPPREF IX/UPDATE=(ENHS :MPPREF IX) +MSRCS$ :MPPFM/UPDATE=(ENHS :MPPFM) +EXECMLS/LIB+L IBS: MP.MLB/LI 


024 AH-BT13A-SE : L EQUIPMENT CORPORATION 
VAX/VMS V4.0 | Aaa alt ASM 


